home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 February / 1985-02.d64 / baker's dozen 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  32 lines
  1. 1 forz=54272to54295:pokez,0:next:poke54296,15:poke54277,4:aa=54272:bb=54273
  2. 10 printchr$(147)chr$(5):poke53280,0:poke53281,0:poke54275,8:cc=54276
  3. 15 forz=1to10:print:next:printtab(9)"please turn up volume.":print
  4. 17 printtab(9)"press run/stop to stop."
  5. 18 fort=1to2000:next:printchr$(147)
  6. 20 k=int(959*rnd(0))+1024:b=160:c=54272
  7. 21 p=int(11*rnd(1))+1:h(1)=int(150*rnd(1))+1:l(1)=int(150*rnd(1))+1
  8. 22 q=int(11*rnd(1))+1:h(2)=int(150*rnd(1))+1:l(2)=int(150*rnd(1))+1
  9. 23 r=int(11*rnd(1))+1:h(3)=int(150*rnd(1))+1:l(3)=int(150*rnd(1))+1
  10. 24 s=int(11*rnd(1))+1:h(4)=int(150*rnd(1))+1:l(4)=int(150*rnd(1))+1
  11. 25 t=int(14*rnd(1))+2
  12. 26 u=int(14*rnd(1))+2
  13. 27 v=int(14*rnd(1))+2
  14. 28 w=int(14*rnd(1))+2
  15. 30 forx=1top:pokek,b:pokek+c,t:pokeaa,h(1):pokebb,l(1):pokecc,65:k=k+41
  16. 40 ifk>1983then100
  17. 50 if(k-1063)/40-int((k-1063)/40)=0then300
  18. 60 pokecc,64:next
  19. 100 forx=1toq:pokek,b:pokek+c,u:pokeaa,h(2):pokebb,l(2):pokecc,65:k=k-39
  20. 110 ifk<1064then30
  21. 120 if(k-1063)/40-int((k-1063)/40)=0then200
  22. 130 pokecc,64:next
  23. 200 forx=1tor:pokek,b:pokek+c,v:pokeaa,h(3):pokebb,l(3):pokecc,65:k=k-41
  24. 210 ifk<1064then300
  25. 220 if(k-1024)/40-int((k-1024)/40)=0then100
  26. 230 pokecc,64:next
  27. 300 forx=1tos:pokek,b:pokek+c,w:pokeaa,h(4):pokebb,l(4):pokecc,65:k=k+39
  28. 310 if(k-1024)/40-int((k-1024)/40)=0then30
  29. 320 ifk>1983then200
  30. 330 pokecc,64:next
  31. 340 goto21
  32.